home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #21 (1988-05-25)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #21 (1988-05-25)(Amiga User Gruppe Einzugsgebiet 4000).adf / Keno / keno30000 (.txt) < prev    next >
AmigaBASIC Source Code  |  1988-01-20  |  27KB  |  998 lines

  1. CLEAR, 30000
  2. SCREEN 2,640,200,3,2
  3. WINDOW 2,,,0,2
  4. WINDOW OUTPUT 2
  5. PALETTE 0,1,1,1
  6. PALETTE 1,1,1,1
  7. PALETTE 2,0,0,0
  8. x=150:y=40
  9. COLOR 2
  10. AREA (x,y)
  11. AREA STEP (0,30)
  12. AREA STEP (10,0)
  13. AREA STEP (0,-20)
  14. AREA STEP (20,20)
  15. AREA STEP (20,0)
  16. AREA STEP (0,-30)
  17. AREA STEP (-10,0)
  18. AREA STEP (0,20)
  19. AREA STEP (-20,-20)
  20. AREAFILL
  21.  
  22. AREA (x+65,y)
  23. AREA STEP (0,30)
  24. AREA STEP (50,0)
  25. AREA STEP (0,-30)
  26. AREAFILL
  27. COLOR 1
  28. AREA (x+80,y+5)
  29. AREA STEP (0,20)
  30. AREA STEP (20,0)
  31. AREA STEP (0,-20)
  32. AREAFILL
  33.  
  34. COLOR 2
  35. AREA (x+130,y)
  36. AREA STEP (0,5)
  37. AREA STEP (22,0)
  38. AREA STEP (0,25)
  39. AREA STEP (16,0)
  40. AREA STEP (0,-25)
  41. AREA STEP (22,0)
  42. AREA STEP (0,-5)
  43. AREAFILL
  44.  
  45. AREA (x+205,y)
  46. AREA STEP (0,30)
  47. AREA STEP (15,0)
  48. AREA STEP (0,-30)
  49. AREAFILL
  50.  
  51. AREA (x+240,y)
  52. AREA STEP (0,30)
  53. AREA STEP (45,0)
  54. AREA STEP (0,-5)
  55. AREA STEP (-35,0)
  56. AREA STEP (0,-20)
  57. AREA STEP (35,0)
  58. AREA STEP (0,-5)
  59. AREAFILL
  60.  
  61. AREA (x+300,y)
  62. AREA STEP (0,30)
  63. AREA STEP (45,0)
  64. AREA STEP (0,-5)
  65. AREA STEP (-35,0)
  66. AREA STEP (0,-7)
  67. AREA STEP (15,0)
  68. AREA STEP (0,-6)
  69. AREA STEP (-15,0)
  70. AREA STEP (0,-7)
  71. AREA STEP (35,0)
  72. AREA STEP (0,-5)
  73. AREAFILL
  74.  
  75. LINE (120,25)-(525,35),2,bf
  76. LINE (120,75)-(525,85),2,bf
  77. LINE (120,25)-(140,85),2,bf
  78. LINE (505,25)-(525,85),2,bf
  79.  
  80. LOCATE 15,18
  81. PRINT "THIS PROGRAM IS FOR ENTERTAINMENT PURPOSES ONLY"
  82. PRINT :PRINT TAB(19);"AND IS NOT TO BE USED ILLEGALLY FOR GAMBLING!!"
  83.  
  84. LOCATE 22,28
  85. PRINT "Press any key to continue."
  86.  
  87.  
  88.  
  89. checkhere:
  90.   zz$=INKEY$
  91.   IF zz$=""THEN GOTO checkhere
  92.  
  93. CLS
  94. CLEAR
  95. PALETTE 0,0.3,0.3,0.3
  96. PALETTE 1,1,1,1
  97. PALETTE 3,0,0,0
  98. PALETTE 2,0.7,0,0 
  99. PALETTE 4,0.7,0,0.5
  100. PALETTE 5,0,0.5,0
  101. PALETTE 6,0.4,0.1,0
  102. RANDOMIZE TIMER
  103. DIM N(20)
  104. DIM blot(15)
  105. DIM which$(15)
  106. FOR z=1 TO 15
  107. READ which$(z)
  108. NEXT
  109. DATA first, second, third, fourth, fifth, sixth, seventh
  110. DATA eighth, ninth, tenth, eleventh, twelveth, thirteenth
  111. DATA fourteenth, fifteenth
  112. LINE (0,0)-(640,200),2,bf
  113. LINE (30,10)-(600,180),6,bf
  114. COLOR 3
  115. AREA (40,181)
  116. AREA (601,181)
  117. AREA (601,15)
  118. AREA (610,15)
  119. AREA (610,184)
  120. AREA (40,184)
  121. AREAFILL
  122. COLOR 1
  123. GOTO titlescreen
  124.  
  125. play:
  126.   GOSUB title
  127.   playagain:
  128.   GOSUB drawboard
  129.   IF zz$="S" THEN GOTO playsame
  130.   GOSUB select
  131.   playsame:
  132.   GOSUB drawnums
  133.   GOSUB checkwin
  134.   GOSUB showwin
  135.   turns=turns+1
  136.   GOSUB fin
  137.  
  138. showwin:
  139.   GOSUB ct
  140.   GOSUB prize
  141.   LOCATE 18,35
  142.   PRINT spots;"- SPOT KENO
  143.   LOCATE 20,14
  144.   IF spots>10 THEN LOCATE 20,3
  145.   PRINT "Your numbers are:";
  146.   FOR j=1 TO spots:PRINT blot(j);:NEXT j
  147.   LOCATE 22,20
  148.   COLOR 1,5
  149.   many$="numbers."
  150.   IF matches=1 THEN many$="number."
  151.   PRINT "You matched";matches;many$;"  You win ";prize$
  152.   COLOR 1,0
  153.   RETURN
  154.  
  155. prize:
  156.   IF spots=1 AND matches=1 THEN prize$="$3":pz=pz+3:RETURN
  157.   IF spots=2 AND matches=2 THEN prize$="$12":pz=pz+12:RETURN
  158.   IF spots=3 AND matches=2 THEN prize$="$1":pz=pz+1:RETURN
  159.   IF spots=3 AND matches=3 THEN prize$="$42":pz=pz+42:RETURN
  160.   IF spots=4 AND matches=2 THEN prize$="$1":pz=pz+1:RETURN
  161.   IF spots=4 AND matches=3 THEN prize$="$4":pz=pz+4:RETURN
  162.   IF spots=4 AND matches=4 THEN prize$="$112":pz=pz+112:RETURN
  163.   IF spots=5 AND matches=3 THEN prize$="$1":pz=pz+1:RETURN
  164.   IF spots=5 AND matches=4 THEN prize$="$14":pz=pz+14:RETURN
  165.   IF spots=5 AND matches=5 THEN prize$="$720":pz=pz+720:RETURN
  166.   IF spots=6 AND matches=3 THEN prize$="$1":pz=pz+1:RETURN
  167.   IF spots=6 AND matches=4 THEN prize$="$4":pz=pz+4:RETURN
  168.   IF spots=6 AND matches=5 THEN prize$="$66":pz=pz+66:RETURN
  169.   IF spots=6 AND matches=6 THEN prize$="$2,000":pz=pz+2000:RETURN
  170.   IF spots=7 AND matches=4 THEN prize$="$1":pz=pz+1:RETURN
  171.   IF spots=7 AND matches=5 THEN prize$="$20":pz=pz+20:RETURN
  172.   IF spots=7 AND matches=6 THEN prize$="$380":pz=pz+380:RETURN
  173.   IF spots=7 AND matches=7 THEN prize$="$8,000":pz=pz+8000:RETURN
  174.   IF spots=8 AND matches=5 THEN prize$="$9":pz=pz+9:RETURN
  175.   IF spots=8 AND matches=6 THEN prize$="$80":pz=pz+80:RETURN
  176.   IF spots=8 AND matches=7 THEN prize$="$1,480":pz=pz+1480:RETURN
  177.   IF spots=8 AND matches=8 THEN prize$="$25,000":pz=pz+25000:RETURN
  178.   IF spots=9 AND matches=5 THEN prize$="$4":pz=pz+4:RETURN
  179.   IF spots=9 AND matches=6 THEN prize$="$44":pz=pz+44:RETURN
  180.   IF spots=9 AND matches=7 THEN prize$="$300":pz=pz+300:RETURN
  181.   IF spots=9 AND matches=8 THEN prize$="$4,000":pz=pz+4000:RETURN
  182.   IF spots=9 AND matches=9 THEN prize$="$25,000":pz=pz+25000:RETURN
  183.   IF spots=10 AND matches=5 THEN prize$="$2":pz=pz+2:RETURN
  184.   IF spots=10 AND matches=6 THEN prize$="$20":pz=pz+20:RETURN
  185.   IF spots=10 AND matches=7 THEN prize$="$136":pz=pz+136:RETURN
  186.   IF spots=10 AND matches=8 THEN prize$="$960":pz=pz+960:RETURN
  187.   IF spots=10 AND matches=9 THEN prize$="$4,000":pz=pz+4000:RETURN
  188.   IF spots=10 AND matches=10 THEN prize$="$25,000":pz=pz+25000:RETURN
  189.   IF spots=11 AND matches=5 THEN prize$="$1":pz=pz+1:RETURN
  190.   IF spots=11 AND matches=6 THEN prize$="$8":pz=pz+8:RETURN
  191.   IF spots=11 AND matches=7 THEN prize$="$72":pz=pz+72:RETURN
  192.   IF spots=11 AND matches=8 THEN prize$="$360":pz=pz+360:RETURN
  193.   IF spots=11 AND matches=9 THEN prize$="$1,800":pz=pz+1800:RETURN
  194.   IF spots=11 AND matches=10 THEN prize$="$12,000":pz=pz+12000:RETURN
  195.   IF spots=11 AND matches=11 THEN prize$="$28,000":pz=pz+28000:RETURN
  196.   IF spots=12 AND matches=6 THEN prize$="$5":pz=pz+5:RETURN
  197.   IF spots=12 AND matches=7 THEN prize$="$32":pz=pz+32:RETURN
  198.   IF spots=12 AND matches=8 THEN prize$="$240":pz=pz+240:RETURN
  199.   IF spots=12 AND matches=9 THEN prize$="$600":pz=pz+600:RETURN
  200.   IF spots=12 AND matches=10 THEN prize$="$1,480":pz=pz+1480:RETURN
  201.   IF spots=12 AND matches=11 THEN prize$="$12,000":pz=pz+12000:RETURN
  202.   IF spots=12 AND matches=12 THEN prize$="$36,000":pz=pz+36000:RETURN
  203.   IF spots=13 AND matches=6 THEN prize$="$1":pz=pz+1:RETURN
  204.   IF spots=13 AND matches=7 THEN prize$="$16":pz=pz+16:RETURN
  205.   IF spots=13 AND matches=8 THEN prize$="$80":pz=pz+80:RETURN
  206.   IF spots=13 AND matches=9 THEN prize$="$720":pz=pz+720:RETURN
  207.   IF spots=13 AND matches=10 THEN prize$="$4,000":pz=pz+4000:RETURN
  208.   IF spots=13 AND matches=11 THEN prize$="$8,000":pz=pz+8000:RETURN
  209.   IF spots=13 AND matches=12 THEN prize$="$25,000":pz=pz+25000:RETURN
  210.   IF spots=13 AND matches=13 THEN prize$="$36,000":pz=pz+13000:RETURN
  211.   IF spots=14 AND matches=6 THEN prize$="$1":pz=pz+1:RETURN
  212.   IF spots=14 AND matches=7 THEN prize$="$10":pz=pz+10:RETURN
  213.   IF spots=14 AND matches=8 THEN prize$="$40":pz=pz+40:RETURN
  214.   IF spots=14 AND matches=9 THEN prize$="$320":pz=pz+320:RETURN
  215.   IF spots=14 AND matches=10 THEN prize$="$1,000":pz=pz+1000:RETURN
  216.   IF spots=14 AND matches=11 THEN prize$="$3,200":pz=pz+3200:RETURN
  217.   IF spots=14 AND matches=12 THEN prize$="$16,000":pz=pz+16000:RETURN
  218.   IF spots=14 AND matches=13 THEN prize$="$25,000":pz=pz+25000:RETURN
  219.   IF spots=14 AND matches=14 THEN prize$="$40,000":pz=pz+40000:RETURN
  220.   IF spots=15 AND matches=7 THEN prize$="$8":pz=pz+8:RETURN
  221.   IF spots=15 AND matches=8 THEN prize$="$28":pz=pz+28:RETURN
  222.   IF spots=15 AND matches=9 THEN prize$="$132":pz=pz+132:RETURN
  223.   IF spots=15 AND matches=10 THEN prize$="$300":pz=pz+300:RETURN
  224.   IF spots=15 AND matches=11 THEN prize$="$2,600":pz=pz+2600:RETURN
  225.   IF spots=15 AND matches=12 THEN prize$="$8,000":pz=pz+8000:RETURN
  226.   IF spots=15 AND matches=13 THEN prize$="$25,000":pz=pz+25000:RETURN
  227.   IF spots=15 AND matches=14 THEN prize$="$32,000":pz=pz+32000:RETURN
  228.   IF spots=15 AND matches=15 THEN prize$="$40,000":pz=pz+40000:RETUR
  229.   prize$="nothing!"
  230.   RETURN
  231.   
  232. checkwin:
  233.   matches=0
  234.   FOR I=1 TO spots
  235.   FOR j=1 TO 20
  236.   IF N(j)=blot(I) THEN matches=matches+1:GOSUB colorwin  
  237.   NEXT j
  238.   NEXT I
  239.   RETURN
  240.   
  241. select:
  242.   spots=0
  243.   COLOR 1,0
  244.   LOCATE 22,14
  245.   PRINT "Enter how many spots you want to play (1-15): ";
  246.   getspot1:
  247.   spot1$=INKEY$    
  248.     IF spot1$="" THEN GOTO getspot1
  249.     IF (ASC(spot1$))<49 OR (ASC(spot1$))>57 THEN spots=0:GOTO checkspots
  250.     PRINT spot1$;
  251.   getspot2:
  252.     spot2$=INKEY$
  253.     IF spot2$="" THEN GOTO getspot2
  254.     IF (ASC(spot2$))=13 THEN spots=(ASC(spot1$))-48:GOTO keepon
  255.     IF (ASC(spot1$))<>49 AND (ASC(spot2$))<>13 THEN spots=0:GOTO checkspots
  256.     IF (ASC(spot2$))<48 OR (ASC(spot2$))>53 THEN spots=0:GOTO checkspots
  257.     PRINT spot2$;
  258.   getspot3:
  259.     spot3$=INKEY$
  260.     IF spot3$="" THEN GOTO getspot3
  261.     IF (ASC(spot3$))<>13 THEN spots=0:GOTO checkspots  
  262.     spots=(ASC(spot2$))-38
  263.   keepon:
  264.   FOR z=1 TO spots
  265.   GOSUB ct
  266.   LOCATE 18,35
  267.   PRINT spots;"- SPOT KENO"
  268.   LOCATE 20,14
  269.   PRINT "Enter your ";which$(z);" number: ";
  270.   getblot1:
  271.   blot1$=INKEY$    
  272.     IF blot1$="" THEN GOTO getblot1
  273.     IF (ASC(blot1$))<49 OR (ASC(blot1$))>57 THEN blot(z)=0:GOTO blotrange
  274.     PRINT blot1$;
  275.   getblot2:
  276.     blot2$=INKEY$
  277.     IF blot2$="" THEN GOTO getblot2
  278.     IF (ASC(blot2$))=13 THEN blot(z)=(ASC(blot1$))-48:GOTO ready
  279.     IF (ASC(blot1$))>56 THEN GOTO blotrange
  280.     IF (ASC(blot2$))<48 OR (ASC(blot2$))>57 THEN GOTO blotrange    
  281.     IF (ASC(blot1$))=56 AND (ASC(blot2$))<>48 THEN GOTO blotrange    
  282.     PRINT blot2$;
  283.   getblot3:
  284.     blot3$=INKEY$
  285.     IF blot3$="" THEN GOTO getblot3
  286.     IF (ASC(blot3$))<>13 THEN blots=0:GOTO blotrange  
  287.     blot(z)=((ASC(blot1$))-48)*10+(ASC(blot2$))-48
  288.   ready:
  289.   GOSUB checkblot:IF repeat=1 THEN GOTO getblot1
  290.   NEXT z 
  291.   RETURN
  292.  
  293. checkblot:
  294.   repeat=0
  295.   IF z=1 THEN RETURN
  296.   FOR I=z TO 2 STEP -1
  297.   IF blot(z)=blot(I-1) THEN repeat=1:GOSUB blotagain 
  298.   NEXT I
  299.   RETURN    
  300.  
  301. blotrange:
  302.   GOSUB ct
  303.   LOCATE 20,14
  304.   PRINT "That entry is out of playing range. Range is from 1 to 80."
  305.   LOCATE 22,14
  306.   PRINT  "Enter your ";which$(z);" number again: ";
  307.   GOTO getblot1
  308.   
  309. blotagain:
  310.   GOSUB ct
  311.   LOCATE 20,14
  312.   PRINT "You already chose that number before!"
  313.   LOCATE 22,14
  314.   PRINT  "Enter your ";which$(z);" number again: ";
  315.   RETURN  
  316.  
  317. checkspots:
  318.   IF spots<16 AND spots>0 THEN GOTO keepon
  319.   GOSUB ct
  320.   LOCATE 18,14
  321.   PRINT "Number of spots played MUST be in the range of 1 to 15."  
  322.   LOCATE 20,35
  323.   PRINT "TRY AGAIN !!"
  324.   GOTO select
  325.   
  326.  
  327. drawboard: 
  328. GOSUB ct 
  329. LINE (123,4)-(522,131),3,bf
  330. FOR b=4 TO 132 STEP 16
  331. LINE (123,b)-(522,b),1
  332. NEXT b
  333. FOR a=123 TO 525 STEP 40
  334. LINE (a,4)-(a,131),1
  335. NEXT a
  336. COLOR 1,3
  337. z=0
  338. FOR x=0 TO 79
  339. c=l
  340. l=2+(INT(x/10))*2
  341. IF c><l THEN z=0
  342. LOCATE l,17+z*5
  343. PRINT x+1
  344. z=z+1
  345. NEXT x
  346. RETURN
  347.  
  348. drawnums:
  349.   GOSUB ct
  350.   COLOR 1,0
  351.   LOCATE 18,35
  352.   PRINT spots;"- SPOT KENO"
  353.   LOCATE 20,22
  354.   COLOR 1,2
  355.   PRINT "Amy is selecting 20 numbers at random."
  356.   FOR t=1 TO 20
  357.   N(t)=INT(RND*80)+1
  358.   GOSUB checkn
  359.   GOSUB lightboard
  360.   NEXT t
  361.   COLOR 1,0
  362.   RETURN
  363.    
  364.  
  365. fin:
  366.   LOCATE 24,2:PRINT "'N'-Pick New Numbers  'S'-Play Same Numbers  'M'-Payoff Information  'Q'-Quit";
  367.   checkkey:
  368.   zz$=UCASE$(INKEY$)
  369.   IF zz$="" THEN GOTO checkkey
  370.   IF zz$="N" THEN GOTO playagain
  371.   IF zz$="S" THEN GOTO playagain
  372.   IF zz$="M" THEN GOTO payscreen
  373.   IF zz$="Q" THEN GOTO quit
  374.   GOTO checkkey
  375.   
  376. quit:  
  377.   CLS
  378.   WINDOW CLOSE 2
  379.   SCREEN CLOSE 2
  380.   LOCATE 4,30
  381.   IF turns=1 THEN amt$="dollar."
  382.   IF turns>1 THEN amt$="dollars."
  383.   PRINT "You spent";turns;amt$
  384.   IF pz=0 THEN winnings$="nothing...Sorry, better luck next time!"
  385.   IF pz=0 THEN LOCATE 6,17:PRINT "You won ";winnings$
  386.   IF pz>0 THEN LOCATE 6,30:PRINT "You won";pz;"dollars." 
  387.   LOCATE 11,27
  388.   PRINT "Thank You for playing KENO"
  389.   LOCATE 15,28
  390.   PRINT "A Program in AmigaBASIC"
  391.   LOCATE 17,39:PRINT "by"
  392.   LOCATE 19,33:PRINT "Kip H. Hammond"
  393.   CLEAR
  394.   END
  395.   
  396. checkn:
  397.   FOR w=t TO 2 STEP -1
  398.   IF N(t)=N(w-1) THEN N(t)=INT(RND*80)+1:GOTO checkn
  399.   NEXT w
  400.   RETURN 
  401.  
  402.  
  403. lightboard:
  404.   GOSUB findrow
  405.   GOSUB findcol
  406.   PAINT (x,y),2,1
  407.   RETURN
  408.   
  409.   
  410.   
  411. findcol:
  412.   r=N(t)-r
  413.   IF r=1 THEN x=124:RETURN
  414.   IF r=2 THEN x=164:RETURN
  415.   IF r=3 THEN x=204:RETURN
  416.   IF r=4 THEN x=244:RETURN
  417.   IF r=5 THEN x=284:RETURN
  418.   IF r=6 THEN x=324:RETURN
  419.   IF r=7 THEN x=364:RETURN
  420.   IF r=8 THEN x=404:RETURN
  421.   IF r=9 THEN x=444:RETURN
  422.   IF r=10 THEN x=484:RETURN
  423.     
  424. findcol2:
  425.   r=blot(I)-r
  426.   IF r=1 THEN x=124:RETURN
  427.   IF r=2 THEN x=164:RETURN
  428.   IF r=3 THEN x=204:RETURN
  429.   IF r=4 THEN x=244:RETURN
  430.   IF r=5 THEN x=284:RETURN
  431.   IF r=6 THEN x=324:RETURN
  432.   IF r=7 THEN x=364:RETURN
  433.   IF r=8 THEN x=404:RETURN
  434.   IF r=9 THEN x=444:RETURN
  435.   IF r=10 THEN x=484:RETURN
  436.   
  437.  
  438. findrow:  
  439.   IF N(t)>70 THEN y=117:r=70:RETURN
  440.   IF N(t)>60 THEN y=101:r=60:RETURN
  441.   IF N(t)>50 THEN y=85:r=50:RETURN
  442.   IF N(t)>40 THEN y=69:r=40:RETURN
  443.   IF N(t)>30 THEN y=53:r=30:RETURN
  444.   IF N(t)>20 THEN y=37:r=20:RETURN
  445.   IF N(t)>10 THEN y=21:r=10:RETURN
  446.   y=5:r=0:RETURN
  447.  
  448. colorwin:
  449.   GOSUB findrow2
  450.   GOSUB findcol2
  451.   PAINT (x,y),5,1
  452.   RETURN
  453.  
  454.  
  455. findrow2:  
  456.   IF blot(I)>70 THEN y=117:r=70:RETURN
  457.   IF blot(I)>60 THEN y=101:r=60:RETURN
  458.   IF blot(I)>50 THEN y=85:r=50:RETURN
  459.   IF blot(I)>40 THEN y=69:r=40:RETURN
  460.   IF blot(I)>30 THEN y=53:r=30:RETURN
  461.   IF blot(I)>20 THEN y=37:r=20:RETURN
  462.   IF blot(I)>10 THEN y=21:r=10:RETURN
  463.   y=5:r=0:RETURN
  464.     
  465.   
  466. title: 
  467. CLS
  468. x=10: y=5 
  469. GOSUB K
  470. y=40
  471. GOSUB E
  472. y=75
  473. GOSUB N
  474. y=110
  475. GOSUB O
  476. RETURN
  477.  
  478. titlescreen:
  479.   x=165:y=30:GOSUB K
  480.   x=247:GOSUB E
  481.   x=315:GOSUB N
  482.   x=400:GOSUB O
  483.   COLOR 1,6
  484.   LOCATE 10,39:PRINT "by"
  485.   LOCATE 12,33:PRINT "KIP H. HAMMOND"
  486.   
  487.   LOCATE 15,8
  488.          PRINT "This program is donated to the public domain by the author for all"
  489.   PRINT TAB(8);"to enjoy. It may be freely distributed via electronic BBS, user"
  490.   PRINT TAB(8);"group disk trading, or other FREE distribution. If you enjoy this"
  491.   PRINT TAB(8);"program, contributions to the author will be graciously accepted."
  492.   PRINT TAB(8);"Mail donations to 11280 Washington Place, Culver City, Ca. 90230."
  493.   PRINT TAB(8);"              Have fun...and I hope you win big!!"
  494.    
  495.   
  496.   LOCATE 22,8
  497.   PRINT "Press 'I' for Instructions, 'M' for Money Payoffs, or 'P' to Play."
  498.   COLOR 1,0
  499.   ck2:
  500.   zzz$=UCASE$(INKEY$)
  501.   IF zzz$="I" THEN GOTO instructions
  502.   IF zzz$="P" THEN GOTO play
  503.   IF zzz$="M" THEN GOTO payscreen
  504.   GOTO ck2
  505.  
  506. instructions:
  507.   CLS
  508.   LOCATE 2,31:PRINT "KENO INSTRUCTIONS"
  509.   LOCATE 4,1
  510.   PRINT "This game is played EXACTLY like KENO in the casinos of Las Vegas."
  511.   PRINT :PRINT "You pay $1 to play. The playing board consists of 80 numbers, 1 TO 80!"
  512.   PRINT "You are allowed to select from 1 TO 15 numbers to play."
  513.   PRINT :PRINT "After you decide how many numbers you want to play, you then select that"
  514.   PRINT "many different numbers from the board of 80." 
  515.   PRINT :PRINT "The house, in this case Amy, will then select 20 numbers at random from the"
  516.   PRINT "board of 80. These numbers will be highlighted in red."
  517.   PRINT :PRINT "The object of the game is to have the numbers that you selected MATCH as"
  518.   PRINT "many of the numbers selected at random as possible. Your matching numbers will"
  519.   PRINT "be highlighted in green."
  520.   PRINT :PRINT "The premise of this game is very simple, but the odds that you will match"
  521.   PRINT "very many numbers are staggeringly against you! That is why the payoffs are"
  522.   PRINT "very high. For example, if you match 10 of 10 numbers, you win $25,000 on a"
  523.   PRINT "$1 bet."
  524.   
  525.   
  526.   LOCATE 23,12:PRINT "Press 'M' for Money Payoff Information, or 'P' to Play.";
  527.   ck3:
  528.   yy$=UCASE$(INKEY$)
  529.   IF yy$="" THEN GOTO ck3
  530.   IF yy$="Q" THEN GOTO quit
  531.   IF yy$="P" THEN GOTO play
  532.   IF yy$="M" THEN GOTO payscreen
  533.   GOTO ck3
  534.   
  535. K:
  536.   LINE (x,y)-STEP(30,0) 
  537.   LINE STEP(0,0)-STEP(-10,5) 
  538.   LINE STEP(0,0)-STEP(0,8) 
  539.   LINE STEP(0,0)-STEP(22,-9)
  540.   LINE STEP(0,0)-STEP(-6,-4)
  541.   LINE STEP(0,0)-STEP(30,0)
  542.   LINE STEP(0,0)-STEP(-36,15)
  543.   LINE STEP(0,0)-STEP(36,15)
  544.   LINE STEP(0,0)-STEP(-30,0)
  545.   LINE STEP(0,0)-STEP(6,-4)
  546.   LINE STEP(0,0)-STEP(-22,-9)
  547.   LINE STEP(0,0)-STEP(0,8)
  548.   LINE STEP(0,0)-STEP(10,5)
  549.   LINE STEP(0,0)-STEP(-30,0)
  550.   LINE STEP(0,0)-STEP(10,-5)
  551.   LINE STEP(0,0)-STEP(0,-20)
  552.   LINE STEP(0,0)-STEP(-10,-5)
  553.   PAINT STEP (10,2),4,1
  554.   RETURN
  555.   
  556.  
  557. E:
  558.   LINE (x,y)-STEP(50,0)
  559.   LINE STEP(0,0)-STEP(0,10)
  560.   LINE STEP(0,0)-STEP(-10,-5)
  561.   LINE STEP(0,0)-STEP(-20,0)  
  562.   LINE STEP(0,0)-STEP(0,8)
  563.   LINE STEP(0,0)-STEP(5,0)
  564.   LINE STEP(0,0)-STEP(6,-3)
  565.   LINE STEP(0,0)-STEP(0,10)
  566.   LINE STEP(0,0)-STEP(-6,-3)
  567.   LINE STEP(0,0)-STEP(-5,0)
  568.   LINE STEP(0,0)-STEP(0,8)
  569.   LINE STEP(0,0)-STEP(20,0)
  570.   LINE STEP(0,0)-STEP(10,-5)
  571.   LINE STEP(0,0)-STEP(0,10)
  572.   LINE STEP(0,0)-STEP(-50,0)
  573.   LINE STEP(0,0)-STEP(10,-5)
  574.   LINE STEP(0,0)-STEP(0,-20)
  575.   LINE STEP(0,0)-STEP(-10,-5)
  576.   PAINT STEP (10,2),4,1
  577.   RETURN
  578.   
  579.  
  580. N:
  581.   LINE (x,y)-STEP(30,0)
  582.   LINE STEP(0,0)-STEP(20,25)
  583.   LINE STEP(0,0)-STEP(0,-20)
  584.   LINE STEP(0,0)-STEP(-10,-5)
  585.   LINE STEP(0,0)-STEP(30,0)
  586.   LINE STEP(0,0)-STEP(-10,5)
  587.   LINE STEP(0,0)-STEP(0,20)
  588.   LINE STEP(0,0)-STEP(10,5)
  589.   LINE STEP(0,0)-STEP(-30,0)
  590.   LINE STEP(0,0)-STEP(-20,-25)
  591.   LINE STEP(0,0)-STEP(0,20)
  592.   LINE STEP(0,0)-STEP(10,5)
  593.   LINE STEP(0,0)-STEP(-30,0)
  594.   LINE STEP(0,0)-STEP(10,-5)
  595.   LINE STEP(0,0)-STEP(0,-20)
  596.   LINE STEP(0,0)-STEP(-10,-5)
  597.   PAINT STEP (10,2),4,1
  598.   RETURN
  599.   
  600.  
  601. O:
  602.   LINE (x,y)-STEP(60,0)
  603.   LINE STEP(0,0)-STEP(-10,5)
  604.   LINE STEP(0,0)-STEP(0,20)
  605.   LINE STEP(0,0)-STEP(10,5)
  606.   LINE STEP(0,0)-STEP(-60,0)
  607.   LINE STEP(0,0)-STEP(10,-5)
  608.   LINE STEP(0,0)-STEP(0,-20)
  609.   LINE STEP(0,0)-STEP(-10,-5)
  610.   LINE STEP(20,5)-STEP(20,0)
  611.   LINE STEP(0,0)-STEP(0,20)
  612.   LINE STEP(0,0)-STEP(-20,0)
  613.   LINE STEP(0,0)-STEP(0,-20)
  614.   PAINT STEP(-2,0),4,1
  615. RETURN
  616.  
  617. ct:
  618.   LINE (80,135)-(630,200),0,bf
  619.   LINE (1,145)-(80,200),0,bf
  620.   RETURN
  621.   
  622. payscreen:
  623. CLS
  624. LOCATE 2,28:PRINT "KENO PAYOFF INFORMATION"
  625. LOCATE 4,5
  626. PRINT "Payoffs are the same as at the FOUR-QUEENS HOTEL in Las Vegas, Nevada."
  627. LOCATE 6,3
  628. PRINT "Press the letter of the game about which you would like payoff information."
  629. LOCATE 10,10
  630. PRINT "A.  for 1-SPOT, 2-SPOT, 3-SPOT, 4-SPOT, 5-SPOT, and 6-SPOT"
  631. LOCATE 12,10
  632. PRINT "B.  for 7-SPOT, 8-SPOT, 9-SPOT, and 10-SPOT"
  633. LOCATE 14,10
  634. PRINT "C.  for 11-SPOT, 12-SPOT, and 13-SPOT"
  635. LOCATE 16,10
  636. PRINT "D.  for 14-SPOT and 15-SPOT"
  637. LOCATE 20,16
  638. PRINT "Press 'A', 'B', 'C', or 'D' for Screen Listing." 
  639. LOCATE 22,9
  640. PRINT "Press 'P' for a hardcopy printout of Complete Payoff Schedule."
  641.  
  642. look:
  643.   zz$=UCASE$(INKEY$)
  644.   IF zz$="A" THEN GOTO pay1  
  645.   IF zz$="B" THEN GOTO pay2
  646.   IF zz$="C" THEN GOTO pay3
  647.   IF zz$="D" THEN GOTO pay4
  648.   IF zz$="P" THEN GOTO hardprint
  649.   GOTO look
  650.  
  651. pay4:
  652. CLS
  653. LINE (200,5)-(425,17),2,bf
  654. LINE (250,6)-(375,16),3,bf
  655. LINE (40,20)-(270,115),3,bf
  656. LINE (40,20)-(270,115),2,b
  657. LINE (365,20)-(595,115),3,bf
  658. LINE (365,20)-(595,115),2,b
  659.  
  660. COLOR 1,3
  661. LOCATE 2,34:PRINT "KENO PAYOFFS"
  662. LOCATE 4,8:PRINT "FOURTEEN-SPOT"
  663. LOCATE 5,8:PRINT "------------------------"
  664. LOCATE 6,8:PRINT "Catch 6           Win $1"
  665. LOCATE 7,8:PRINT "      7              $10"
  666. LOCATE 8,8:PRINT "      8              $40"
  667. LOCATE 9,8:PRINT "      9             $320"
  668. LOCATE 10,8:PRINT"     10           $1,000"
  669. LOCATE 11,8:PRINT"     11           $3,200"
  670. LOCATE 12,8:PRINT"     12          $16,000"
  671. LOCATE 13,8:PRINT"     13          $25,000"
  672. LOCATE 14,8:PRINT"     14          $40,000"
  673. LOCATE 4,49:PRINT "FIFTEEN-SPOT"
  674. LOCATE 5,49:PRINT "------------------------"
  675. LOCATE 6,49:PRINT "Catch 7           Win $8"
  676. LOCATE 7,49:PRINT "      8              $28"
  677. LOCATE 8,49:PRINT "      9             $132"
  678. LOCATE 9,49:PRINT "     10             $300"
  679. LOCATE 10,49:PRINT"     11           $2,600"
  680. LOCATE 11,49:PRINT"     12           $8,000"
  681. LOCATE 12,49:PRINT"     13          $25,000"
  682. LOCATE 13,49:PRINT"     14          $32,000"
  683. LOCATE 14,49:PRINT"     15          $40,000"
  684. COLOR 1,0
  685.  
  686. LOCATE 24,7
  687. IF turns=0 THEN PRINT "               'P'-to Play    'M'-More Information";:GOTO lookpay4
  688. PRINT "'N'-Pick New Numbers   'S'-Play Same Numbers   'M'-More Information";
  689.  
  690. lookpay4:
  691.   zz$=UCASE$(INKEY$)
  692.   IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play  
  693.   IF zz$="M" THEN GOTO pay1
  694.   GOTO lookpay4
  695.  
  696.  
  697. pay3:
  698. CLS
  699. LINE (200,5)-(425,17),2,bf
  700. LINE (250,6)-(375,16),3,bf
  701. LINE (40,20)-(270,97),3,bf
  702. LINE (40,20)-(270,97),2,b
  703. LINE (40,100)-(270,177),3,bf
  704. LINE (40,100)-(270,177),2,b
  705. LINE (365,20)-(595,107),3,bf
  706. LINE (365,20)-(595,107),2,b
  707.  
  708. COLOR 1,3
  709. LOCATE 2,34:PRINT "KENO PAYOFFS"
  710. LOCATE 4,8:PRINT "ELEVEN-SPOT"
  711. LOCATE 5,8:PRINT "------------------------"
  712. LOCATE 6,8:PRINT "Catch 5           Win $1"
  713. LOCATE 7,8:PRINT "      6               $8"
  714. LOCATE 8,8:PRINT "      7              $72"
  715. LOCATE 9,8:PRINT "      8             $360"
  716. LOCATE 10,8:PRINT"      9           $1,800"
  717. LOCATE 11,8:PRINT"     10          $12,000"
  718. LOCATE 12,8:PRINT"     11          $28,000"
  719. LOCATE 14,8:PRINT"TWELVE-SPOT"
  720. LOCATE 15,8:PRINT"------------------------"
  721. LOCATE 16,8:PRINT"Catch 6           Win $5"
  722. LOCATE 17,8:PRINT"      7              $32"
  723. LOCATE 18,8:PRINT"      8             $240"
  724. LOCATE 19,8:PRINT"      9             $600"
  725. LOCATE 20,8:PRINT"     10           $1,480"
  726. LOCATE 21,8:PRINT"     11          $12,000"
  727. LOCATE 22,8:PRINT"     12          $36,000"
  728. LOCATE 4,49:PRINT "THIRTEEN-SPOT"
  729. LOCATE 5,49:PRINT "------------------------"
  730. LOCATE 6,49:PRINT "Catch 6           Win $1"
  731. LOCATE 7,49:PRINT "      7              $16"
  732. LOCATE 8,49:PRINT "      8              $80"
  733. LOCATE 9,49:PRINT "      9             $720"
  734. LOCATE 10,49:PRINT"     10           $4,000"
  735. LOCATE 11,49:PRINT"     11           $8,000"
  736. LOCATE 12,49:PRINT"     12          $25,000"
  737. LOCATE 13,49:PRINT"     13          $36,000"
  738.  
  739. COLOR 1,0
  740. LOCATE 24,7
  741. IF turns=0 THEN PRINT "               'P'-to Play    'M'-More Information";:GOTO lookpay3
  742. PRINT "'N'-Pick New Numbers   'S'-Play Same Numbers   'M'-More Information";
  743.  
  744. lookpay3:
  745.   zz$=UCASE$(INKEY$)
  746.   IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play  
  747.   IF zz$="M" THEN GOTO pay4
  748.   GOTO lookpay3
  749.  
  750. pay2:
  751. CLS
  752. LINE (200,5)-(425,17),2,bf
  753. LINE (250,6)-(375,16),3,bf
  754. LINE (40,20)-(270,73),3,bf
  755. LINE (40,20)-(270,73),2,b
  756. LINE (40,76)-(270,130),3,bf
  757. LINE (40,76)-(270,130),2,b
  758. LINE (365,20)-(595,81),3,bf
  759. LINE (365,20)-(595,81),2,b
  760. LINE (365,84)-(595,154),3,bf
  761. LINE (365,84)-(595,154),2,b
  762.  
  763. COLOR 1,3
  764. LOCATE 2,34:PRINT "KENO PAYOFFS"
  765. LOCATE 4,8:PRINT "SEVEN-SPOT"
  766. LOCATE 5,8:PRINT "------------------------"
  767. LOCATE 6,8:PRINT "Catch 4           Win $1"
  768. LOCATE 7,8:PRINT "      5              $20"
  769. LOCATE 8,8:PRINT "      6             $380"
  770. LOCATE 9,8:PRINT "      7           $8,000"
  771. LOCATE 11,8:PRINT"EIGHT-SPOT"
  772. LOCATE 12,8:PRINT"------------------------"
  773. LOCATE 13,8:PRINT"Catch 5           Win $9"
  774. LOCATE 14,8:PRINT"      6              $80"
  775. LOCATE 15,8:PRINT"      7           $1,480"
  776. LOCATE 16,8:PRINT"      8          $25,000"
  777. LOCATE 4,49:PRINT "NINE-SPOT"
  778. LOCATE 5,49:PRINT "------------------------"
  779. LOCATE 6,49:PRINT "Catch 5           Win $4"
  780. LOCATE 7,49:PRINT "      6              $44"
  781. LOCATE 8,49:PRINT "      7             $300"
  782. LOCATE 9,49:PRINT "      8           $4,000"
  783. LOCATE 10,49:PRINT"      9          $25,000"
  784. LOCATE 12,49:PRINT"TEN-SPOT"
  785. LOCATE 13,49:PRINT"------------------------"
  786. LOCATE 14,49:PRINT"Catch 5           Win $2"
  787. LOCATE 15,49:PRINT"      6              $20"
  788. LOCATE 16,49:PRINT"      7             $136"
  789. LOCATE 17,49:PRINT"      8             $960"
  790. LOCATE 18,49:PRINT"      9           $4,000"
  791. LOCATE 19,49:PRINT"     10          $25,000"
  792.  
  793. COLOR 1,0
  794.  
  795. LOCATE 24,7
  796. IF turns=0 THEN PRINT "               'P'-to Play    'M'-More Information";:GOTO lookpay2
  797. PRINT "'N'-Pick New Numbers   'S'-Play Same Numbers   'M'-More Information";
  798.  
  799. lookpay2:
  800.   zz$=UCASE$(INKEY$)
  801.   IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play  
  802.   IF zz$="M" THEN GOTO pay3
  803.   GOTO lookpay2
  804.  
  805. pay1:
  806. CLS
  807. LINE (200,5)-(425,17),2,bf
  808. LINE (250,6)-(375,16),3,bf
  809. LINE (40,20)-(270,50),3,bf
  810. LINE (40,20)-(270,50),2,b
  811. LINE (40,53)-(270,82),3,bf
  812. LINE (40,53)-(270,82),2,b
  813. LINE (40,85)-(270,122),3,bf
  814. LINE (40,85)-(270,122),2,b
  815. LINE (40,125)-(270,170),3,bf
  816. LINE (40,125)-(270,170),2,b
  817. LINE (365,20)-(595,65),3,bf
  818. LINE (365,20)-(595,65),2,b
  819. LINE (365,68)-(595,123),3,bf
  820. LINE (365,68)-(595,123),2,b
  821.  
  822. COLOR 1,3
  823. LOCATE 2,34:PRINT "KENO PAYOFFS"
  824. LOCATE 4,8:PRINT "ONE-SPOT"
  825. LOCATE 5,8:PRINT "------------------------"
  826. LOCATE 6,8:PRINT "Catch 1           Win $3"
  827. LOCATE 8,8:PRINT "TWO-SPOT"
  828. LOCATE 9,8:PRINT "------------------------"
  829. LOCATE 10,8:PRINT "Catch 2         Win $12"
  830.  
  831. LOCATE 12,8:PRINT "THREE-SPOT"
  832. LOCATE 13,8:PRINT "------------------------"
  833. LOCATE 14,8:PRINT "Catch 2           Win $1"
  834. LOCATE 15,8:PRINT "      3              $42"
  835. LOCATE 17,8:PRINT "FOUR-SPOT"
  836. LOCATE 18,8:PRINT "------------------------"
  837. LOCATE 19,8:PRINT "Catch 2           Win $1"
  838. LOCATE 20,8:PRINT "      3               $4"
  839. LOCATE 21,8:PRINT "      4             $112"
  840. LOCATE 4,49:PRINT "FIVE-SPOT"
  841. LOCATE 5,49:PRINT "------------------------"
  842. LOCATE 6,49:PRINT "Catch 3           Win $1"
  843. LOCATE 7,49:PRINT "      4              $14"
  844. LOCATE 8,49:PRINT "      5             $720"
  845. LOCATE 10,49:PRINT"SIX-SPOT"
  846. LOCATE 11,49:PRINT"------------------------"
  847. LOCATE 12,49:PRINT"Catch 3           Win $1"
  848. LOCATE 13,49:PRINT"      4               $4"
  849. LOCATE 14,49:PRINT"      5              $66"
  850. LOCATE 15,49:PRINT"      6           $2,000"
  851.  
  852. COLOR 1,0
  853.  
  854. LOCATE 24,7
  855. IF turns=0 THEN PRINT "               'P'-to Play    'M'-More Information";:GOTO lookpay1
  856. PRINT "'N'-Pick New Numbers   'S'-Play Same Numbers   'M'-More Information";
  857.  
  858. lookpay1:
  859.   zz$=UCASE$(INKEY$)
  860.   IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play  
  861.   IF zz$="M" THEN GOTO pay2
  862.   GOTO lookpay1
  863.  
  864. hardprint:
  865. CLS
  866. LINE (100,28)-(500,42),2,bf
  867. LINE (100,28)-(500,42),3,b
  868. COLOR 1,2
  869. LOCATE 5,20
  870. PRINT "KENO PAYOFF SCHEDULE HARDCOPY PRINTOUT"
  871. COLOR 1,0
  872. LOCATE 9,20
  873. PRINT "Make sure your printer is turned on and"
  874. PRINT :PRINT TAB(20);"loaded with paper and ready"
  875. PRINT :PRINT TAB(20);"to print, then press 'P' to"
  876. PRINT :PRINT TAB(20);"print the KENO Payoff Schedule."
  877. PRINT:PRINT TAB(12);"(You MUST have the Workbench Disk in a drive to printout.)"
  878. PRINT :PRINT 
  879. LINE (195,147)-(228,162),2,bf 
  880. LINE (332,147)-(365,162),2,bf
  881. LINE (195,147)-(228,162),3,b 
  882. LINE (332,147)-(365,162),3,b
  883.  
  884. PRINT TAB(18);"Press:"
  885. COLOR 1,2
  886. LOCATE 20,26:PRINT "'P'"
  887. LOCATE 20,43:PRINT "'A'"
  888. COLOR 1,0
  889. LOCATE 20,30:PRINT "to Print"
  890. LOCATE 20,47:PRINT "to Abort Printout."
  891.  
  892. look2:
  893.   zz$=UCASE$(INKEY$)
  894.   IF zz$="P" THEN GOTO printout
  895.   IF zz$="A" THEN GOTO payscreen
  896.   GOTO look2
  897.   
  898. printout:
  899.   CLS
  900.   LINE (150,52)-(460,67),2,bf
  901.   LINE (150,52)-(460,67),3,b
  902.   COLOR 1,2
  903.   LOCATE 8,23:PRINT "NOW PRINTING KENO PAYOFF SCHEDULE"
  904.   COLOR 1,0
  905.   LPRINT "KENO Payoff Schedule for a $1 Ticket"
  906.   LPRINT:LPRINT
  907.   LPRINT "One-Spot:       Catch 1     Pays    $3"
  908.   LPRINT:LPRINT
  909.   LPRINT "Two-Spot:       Catch 2     Pays   $12"
  910.   LPRINT :LPRINT 
  911.   LPRINT "Three-Spot:     Catch 2     Pays    $1"
  912.   LPRINT "                      3            $42"
  913.   LPRINT :LPRINT 
  914.   LPRINT "Four-Spot:      Catch 2     Pays    $1"
  915.   LPRINT "                      3             $4"
  916.   LPRINT "                      4           $112"
  917.   LPRINT:LPRINT 
  918.   LPRINT "Five-Spot:      Catch 3     Pays    $1"
  919.   LPRINT "                      4            $14"
  920.   LPRINT "                      5           $720"
  921.   LPRINT :LPRINT 
  922.   LPRINT "Six-Spot:       Catch 3     Pays    $1"
  923.   LPRINT "                      4             $4"
  924.   LPRINT "                      5            $66"
  925.   LPRINT "                      6         $2,000"
  926.   LPRINT:LPRINT
  927.   LPRINT "Seven-Spot:     Catch 4     Pays    $1"
  928.   LPRINT "                      5            $20"
  929.   LPRINT "                      6           $380"
  930.   LPRINT "                      7         $8,000"
  931.   LPRINT:LPRINT
  932.   LPRINT "Eight-Spot:     Catch 5     Pays    $9"
  933.   LPRINT "                      6            $80"
  934.   LPRINT "                      7         $1,480"
  935.   LPRINT "                      8        $25,000"
  936.   LPRINT:LPRINT
  937.   LPRINT "Nine-Spot:      Catch 5     Pays    $4"
  938.   LPRINT "                      6            $44"
  939.   LPRINT "                      7           $300"
  940.   LPRINT "                      8         $4,000"
  941.   LPRINT "                      9        $25,000"
  942.   LPRINT:LPRINT
  943.   LPRINT "Ten-Spot:       Catch 5     Pays    $2"
  944.   LPRINT "                      6            $20"
  945.   LPRINT "                      7           $136"
  946.   LPRINT "                      8           $960"
  947.   LPRINT "                      9         $4,000"
  948.   LPRINT "                     10        $25,000"
  949.   LPRINT:LPRINT
  950.   LPRINT "Eleven-Spot:    Catch 5     Pays    $1"
  951.   LPRINT "                      6             $8"
  952.   LPRINT "                      7            $72"
  953.   LPRINT "                      8           $360"
  954.   LPRINT "                      9         $1,800"
  955.   LPRINT "                     10        $12,000"
  956.   LPRINT "                     11        $28,000"
  957.   LPRINT:LPRINT
  958.   LPRINT "Twelve-Spot:    Catch 6     Pays    $5"
  959.   LPRINT "                      7            $32"
  960.   LPRINT "                      8           $240"
  961.   LPRINT "                      9           $600"
  962.   LPRINT "                     10         $1,480"
  963.   LPRINT "                     11        $12,000"
  964.   LPRINT "                     12        $36,000"
  965.   LPRINT:LPRINT
  966.   LPRINT "Thirteen-Spot:  Catch 6     Pays     $1"
  967.   LPRINT "                      7             $16"
  968.   LPRINT "                      8             $80"
  969.   LPRINT "                      9            $720"
  970.   LPRINT "                     10          $4,000"
  971.   LPRINT "                     11          $8,000"
  972.   LPRINT "                     12         $25,000"
  973.   LPRINT "                     13         $36,000"
  974.   LPRINT:LPRINT
  975.   LPRINT "Fourteen-Spot:  Catch 6     Pays     $1"
  976.   LPRINT "                      7             $10"
  977.   LPRINT "                      8             $40"
  978.   LPRINT "                      9            $320"
  979.   LPRINT "                     10          $1,000"
  980.   LPRINT "                     11          $3,200"
  981.   LPRINT "                     12         $16,000"
  982.   LPRINT "                     13         $25,000"
  983.   LPRINT "                     14         $40,000"
  984.   LPRINT :LPRINT 
  985.   LPRINT "Fifteen-Spot:   Catch 7     Pays     $8"
  986.   LPRINT "                      8             $28"
  987.   LPRINT "                      9            $132"
  988.   LPRINT "                     10            $300"
  989.   LPRINT "                     11          $2,600"
  990.   LPRINT "                     12          $8,000"
  991.   LPRINT "                     13         $25,000"
  992.   LPRINT "                     14         $32,000"
  993.   LPRINT "                     15         $40,000"
  994.   
  995. CLS                                        
  996. GOTO payscreen
  997.     
  998.